﻿Module modFunciones

    Public Enum eAccion As Byte
        Agregar = 0
        Modificar = 1
    End Enum

    Public Accion As eAccion

    Public Sub CargarCriteriosTexto(ByRef cbofiltro As ComboBox)
        With cbofiltro.Items
            .Clear()
            .Add("Comienza con")
            .Add("Contiene")
            .Add("Finaliza en")
            .Add("Igual que")
        End With
    End Sub

    Public Sub CargarCriteriosNumericos(ByRef cbofiltro As ComboBox)
        cboFiltro.Items.Clear()
        With cboFiltro.Items
            cboFiltro.Items.Add("Mayor que")
            cboFiltro.Items.Add("Menor que")
            cboFiltro.Items.Add("Igual a")
            cboFiltro.Items.Add("Distinto de")
        End With
    End Sub




    Public Enum eFormulario As Byte
        Ventas = 0
        principal = 1
        proveedores = 2
        clientes = 3
        localidades = 4
    End Enum

    Public FormLlama As eFormulario


    Public Enum eBusqueda As Byte
        Texto = 0
        Numeros = 1
        Alfanumerico = 2
    End Enum

    Public ValidarBusqueda As eBusqueda
    Public validar As New Capa_Datos.VALIDACION



End Module
